fit <- lm(weight ~ height, data=women)
summary(fit)